VB.net – part 3 translate dari VB classic , insert,query, update dan delete , bagian INSERT
Tahap mula seorang developer sistem informasi adalah bisa mengelola data, yaitu menyimpan, menampilkan di kotak isian, memperbaharui dan membuang data. Konsep dalam manajemen database, hampir semua sama, baik itu menggunakan database besar atau kecil.
Tahap 1. Verifikasi kolom kunci sudah ada di dalam database atau belum.
Cara verifikasi dengan membandingkan kolom kunci tadi dengan objek kotak isian.
Vb.6
strS1 = "select kode_barang from stok where kode_barang='" & (Txtkode_barang.Text) & "'"
Set rsData = cN.Execute(strS1)
If rsData.EOF Then
pernyataanSQL utk simpan data
end if
variabel strS1 bertipe data string, artinya berisi karakter bukan numeric (angka). Variabel ini berisi perintah SQL yang ingin mencari di database kolom kode_barang di dalam tabel stok, apakah ada kolom kode_barang yang sama dengan isian di kotak isian Txtkode_barang.Text.
penamaan objek di layout antar muka, harus konsisten, sehingga programmer bisa paham bahwa nama objek dengan awalan Txt adalah suatu textbox.
rsData , adalah variabel yang berfungsi sebagai penampung data (tabel / query) , karena sering digunakan maka ditulis di bagian module, yang bersifat sebagai variabel public.
Public rsData As ADODB.Recordset
Public cN As New ADODB.Connection
cN, adalah variabel yang berfungsi sebagai penghubung dengan database, sama dengan variabel rsData , maka bersifat public dan ditulis di Module
pernyataan kondisi If rsData.EOF Then
artinya adalah jika di vaiabel rsData yang mewakili tabel Stok , tidak ada data kolom kode_barang yang sama dengan kotak isian Txtkode_barang.Text , maka pernyataan SQL ditulis di ruang antara If ... then samapai dengan End if
Vb.net (2008)
Namespace, jangan lupa selalu ditulis di bagian paling atas, sebelum area Form. Imports System.Data.OleDb
Cmd = New OleDbCommand("select * from stok where kode_barang='" & Txtkode_barang.Text & "'", Cn)
DR = Cmd.ExecuteReader
DR.Read()
If Not DR.HasRows Then
pernyataanSQL utk simpan data
End If
Keterangan,
Public Cn As OleDbConnection
OleDbConnection berfungsi untuk menghubungkan antar muka dengan sumber data.
Public Cmd As OleDbCommand
OleDbCommand berfungsi untuk menjalankan perintah SQL yang disudah dihubungkan dengan database dengan variabel Cn.
Public DR As OleDbDataReader
OleDbDataReader berfungsi membaca database dari variabel yang mewakili OleDbCommand
Setelah variabel Cmd , berhasil melakukan query untuk mengetahui apakah kolom kode_barang di tabel stok sama dengan isian yang ada di kotak Txtkode_barang.Text. Maka hasilnya ditampung di variabel DR yang sudah berisi variabel Cmd yang menggunakan fungsi ExecuteReader , untuk membaca data.
Pernyataan If Not DR.HasRows Then
Mempunyai maksud bahwa “jika tidak mempunyai data (rows) maka lakukan pernyataan SQL utk simpan data
Leave a Comment